10 POKE53281,0:POKE53280,0:PRINT"[147]"CHR$(142)CHR$(8)
20 SYS57812"SS 1990",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
22 FORI=1TO7:READC%(I):NEXT
24 DATA 166,169,122,118,191,123,119
26 Q=RND(-TI)
30 FORI=1TO7
40 PRINT"[147]"
50 POKE646,RND(1)*14+2
52 S$="":FORJ=1TO39:S$=S$+CHR$(C%(I)):NEXT
54 FORK=1TO21:PRINTS$:NEXT
60 POKE214,RND(1)*19:PRINT
70 TA=RND(1)*19
80 PRINTTAB(TA)"[176][192][192][192][192][192][192][192][192][192][192][174]"
90 PRINTTAB(TA)"[221] SCREEN"I"[157] [221]"
100 PRINTTAB(TA)"[173][192][192][192][192][192][192][192][192][192][192][189]"
110 SYS828,I
120 NEXT
130 POKE214,22:PRINT
140 PRINT"[154]PRESS 1[154], 2[154], 3[154], 4[154], 5[154], 6[154], 7,[154] OR Q[154] TO QUIT"
150 GETA$:IFA$<"1"ORA$>"7"ANDA$<>"Q"THEN150
160 IFA$="Q"THEN200
170 SYS831,VAL(A$)
180 GOTO130
200 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
210 IFER<>63THENEND
220 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8,1"
230 PRINT"RUN"
240 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:SS 1990 DEMO":CLOSE15:SAVE"SS 1990 DEMO",8